home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / T-TPUG Old Monthly Disks / (c)t3.d64 / box.c (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  549b  |  27 lines
  1. 90 IF PEEK(49152)<>96 THEN LOAD"GRAFIX RTNS",8,1
  2. 100 BA=49153:K=48:DR=BA+12
  3. 110 SYS BA,9,3,0,1
  4. 120 FOR X=0 TO 48 STEP 8:P=3+(X=48)
  5. 130 SYS DR,X,X,X,160-X,P
  6. 140 SYS DR,X,X,192-X,X,P
  7. 150 SYS DR,X,160-X,192-X,160-X,P
  8. 160 SYS DR,192-X,X,192-X,160-X,P
  9. 170 NEXT X
  10. 180 SYS DR,0,159,192,159,3
  11. 190 SYS DR,193,0,200,0,0
  12. 200 FOR X=0 TO 8
  13. 201 K1=K+8*X
  14. 210 SYS DR,0,20*X,K,K1,3
  15. 220 SYS DR,146,K1,192,20*X,3
  16. 230 SYS DR,K,K1,146,K1,2
  17. 240 NEXT X
  18. 250 FOR X=1 TO 11
  19. 251 K1=K+8*X
  20. 260 SYS DR,X*16,0,48+X*8,48,3
  21. 270 SYS DR,K1,K,K1,112,2
  22. 280 SYS DR,K1,112,X*16,160,3
  23. 290 NEXT X
  24. 300 GET I$:IF I$="" THEN 300
  25. 310 SYS BA+9:PRINT"[147]"
  26. 320 END
  27.